c a n a l a u d i o v i s u a l . c o m

<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% ' *** Declaracion variables *** Dim ObjShw ' Almacena el objeto a mostrar Dim ObjCod ' Almacena el tipo de objeto solicitado Dim PthSrv ' Path en el servidor Dim CldSHw ' Campos que se van a mostrar Dim SQL ' Almacena la instruccion SQL Dim oConn ' Base de datos Dim rs ' Recordset Dim curDir ' Directorio de la BD ' ****************************** %> <% ObjShw = Request.Querystring("Obj") ObjCod = Left(ObjShw,2) if ObjShw <> "" then curDir = Server.MapPath(Session("sDBp")) SQL = "SELECT * FROM obras WHERE COD='"&ObjShw&"'" set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;" set rs = CreateObject ("ADODB.Recordset") ' Abro el recordset rs.Open SQL, oConn, 1, 2 ' ********************************************************************************************* ' CODIGO PARA CORTOS - CORTOS 3D ' ********************************************************************************************* if ObjCod = "mv" OR ObjCod = "d3" OR ObjCod = "dc" then PthSrv = rs.Fields("srvpath") %> c a n a l a u d i o v i s u a l . c o m - OBRA

TITULO

" <%= rs.Fields("titulo")%> "

Frase del Autor:

<%= rs.Fields("frase") %>

<%if ExisteFichero("movies\"&ObjShw&"_p01.gif") Then Response.Write("
") End If%>
<%if ExisteFichero("movies\"&ObjShw&"_p02.gif") Then Response.Write("
") End If%>
<%if ExisteFichero("movies\"&ObjShw&"_p03.gif") Then Response.Write("
") End If%>
<%if ExisteFichero("movies\"&ObjShw&"_p04.gif") Then Response.Write("
") End If%>
<%if ExisteFichero("movies\"&ObjShw&"_p05.gif") Then Response.Write("
") End If%>

<%if rs.Fields("fotoautor") = "1" then%>
<% end if %> <%if rs.Fields("existe_t") = "1" then%> <% end if %> <%if rs.Fields("existe_v") = "1" then%> <% end if %>

Foto del Autor

TRAILER
<%Response.Write("")%>	<%Response.Write("")%>VER TRAILER (<%= rs.Fields("t_trailer")%> Mb)
COMPLETO
<%Response.Write("")%>	<%Response.Write("")%>VER VIDEO (<%= rs.Fields("t_video")%> Mb)

Datos de la obra

Titulo:	" <%= rs.Fields("titulo")%> "
Director:	<%= rs.Fields("director")%>
Guionista:	<%= rs.Fields("guionista")%>
Cámara:	<%= rs.Fields("camara")%>
Productor:	<%= rs.Fields("productor")%>
Música:	<%= rs.Fields("musica")%>
Duración:	<%= rs.Fields("duracion")%>
Reparto:	<%= rs.Fields("reparto")%>
Categoría:	<%= rs.Fields("categoria")%>

Sinopsis

<%= rs.Fields("sinopsis") %>

<% rs.Close oConn.Close set rs=nothing set oConn=nothing %> <% ' ********************************************************************************************* ' CODIGO PARA CORTOS 2D ' ********************************************************************************************* elseif ObjCod = "d2" then PthSrv = rs.Fields("srvpath") %> canalaudiovisual.com

TITULO

" <%= rs.Fields("titulo")%> "

Frase del Autor:

<%= rs.Fields("frase") %>

<%if ExisteFichero("movies\"&ObjShw&"_p01.gif") Then Response.Write("
") end if%>
<%if ExisteFichero("movies\"&ObjShw&"_p01.gif") Then Response.Write("
") end if%>
<%if ExisteFichero("movies\"&ObjShw&"_p01.gif") Then Response.Write("
") end if%>
<%if ExisteFichero("movies\"&ObjShw&"_p01.gif") Then Response.Write("
") end if%>
<%if ExisteFichero("movies\"&ObjShw&"_p01.gif") Then Response.Write("
") end if%>

<%if rs.Fields("fotoautor") = "1" then%>
<% end if %> <%if rs.Fields("existe_t") = "1" then%> <% end if %> <%if rs.Fields("existe_v") = "1" then%> <% end if %>

Foto del Autor

TRAILER
<%Response.Write("")%>	<%Response.Write("")%>VER TRAILER (<%= rs.Fields("t_trailer")%> Mb)
COMPLETO
<%Response.Write("")%>	<%Response.Write("")%>VER VIDEO (<%= rs.Fields("t_video")%> Mb)

Datos de la obra

Titulo:	" <%= rs.Fields("titulo")%> "
Director:	<%= rs.Fields("director")%>
Guionista:	<%= rs.Fields("guionista")%>
Cámara:	<%= rs.Fields("camara")%>
Productor:	<%= rs.Fields("productor")%>
Música:	<%= rs.Fields("musica")%>
Duración:	<%= rs.Fields("duracion")%>
Reparto:	<%= rs.Fields("reparto")%>
Categoría:	<%= rs.Fields("categoria")%>

Sinopsis

<%= rs.Fields("sinopsis") %>

<% rs.Close oConn.Close set rs=nothing set oConn=nothing %> <% ' ********************************************************************************************* ' CODIGO PARA IMAGENES ' ********************************************************************************************* elseif ObjCod = "im" then PthSrv = rs.Fields("srvpath") %> canalaudiovisual.com

TITULO

" <%= rs.Fields("titulo")%> "

<% if rs.Fields("frase") <> "" then %>

Frase del Autor:

<%= rs.Fields("frase") %>

<% end if %>

Datos de la obra

Titulo:	" <%= rs.Fields("titulo")%> "
Autor:	<%= rs.Fields("director")%>

<% if rs.Fields("sinopsis") <> "" then %>

Comentario del Autor

<%= rs.Fields("sinopsis") %>

<% end if %>

<%if rs.Fields("fotoautor") = "1" then%>
<% end if %> <%if rs.Fields("nimg") <> "" then%> <% Dim Contador %> <% for Contador=1 to rs.Fields("nimg")%> <% Next %> <% end if %>

Foto del Autor

IMÁGENES

<% Response.Write("") %> Imagen <%= Contador%>

<% rs.Close oConn.Close set rs=nothing set oConn=nothing %> <% ' ********************************************************************************************* ' CODIGO AUDIO ' ********************************************************************************************* elseif ObjCod = "au" then PthSrv = rs.Fields("srvpath") %> canalaudiovisual.com

TITULO

" <%= rs.Fields("titulo")%> "

<% if rs.Fields("perfilautor") <> "" then %>

Perfil del Autor:

<%= rs.Fields("perfilautor") %>

<% end if %>

Frase del Autor:

<%= rs.Fields("frase") %>

<%if rs.Fields("fotoautor") = "1" then%> <% end if %> <%if rs.Fields("existe_t") = "1" then%> <% end if %> <%if rs.Fields("existe_v") = "1" AND rs.Fields("nimg") = "1" then%> <%elseif rs.Fields("nimg") <> "0" AND rs.Fields("nimg") <> "1" AND rs.Fields("existe_v") = "1" then%> <% end if %> <% if rs.Fields("nimg") <> "0" AND rs.Fields("nimg") <> "" AND rs.Fields("existe_v") = "1" then%> <% 'Dim Contador %> <% for Contador=1 to rs.Fields("nimg")%> <% Next %> <% end if %>

Foto del Autor

MINIMA
<%Response.Write("")%>	<%Response.Write("")%>REPRODUCIR (<%= rs.Fields("t_trailer")%> Mb)
OBRA COMPLETA
LISTA DE TRACKS
<%Response.Write("")%>	<%Response.Write("")%>Track <%= Contador %>

Datos de la obra

<% if rs.Fields("titulo") <> "" then %> <% end if %> <% if rs.Fields("director") <> "" then %> <% end if %> <% if rs.Fields("duracion") <> "" then %> <% end if %> <% if rs.Fields("categoria") <> "" then %> <% end if %>

Titulo:	" <%= rs.Fields("titulo")%> "
Autor/Grupo:	<%= rs.Fields("director")%>
Duración:	<%= rs.Fields("duracion")%>
Categoría:	<%= rs.Fields("categoria")%>

Sinopsis

<%= rs.Fields("sinopsis") %>

<% rs.Close oConn.Close set rs=nothing set oConn=nothing end if end if %>